home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / DELPHI / RAS.ZIP / RASFRM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-02  |  1.1 KB  |  55 lines
  1. unit rasfrm;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Rascomp32;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     RAS: TRAS;
  12.     ListBox1: TListBox;
  13.     btnDial: TButton;
  14.     Label1: TLabel;
  15.     procedure FormCreate(Sender: TObject);
  16.     procedure RASConnect(Sender: TObject);
  17.     procedure btnDialClick(Sender: TObject);
  18.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. var
  26.   Form1: TForm1;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31.  
  32. procedure TForm1.FormCreate(Sender: TObject);
  33. begin
  34.   RAS.GetPhoneBookEntries;
  35.   Listbox1.Items.Assign (RAS.PhoneBookEntries);
  36. end;
  37.  
  38. procedure TForm1.RASConnect(Sender: TObject);
  39. begin
  40.   ShowMessage ('Connected!');
  41. end;
  42.  
  43. procedure TForm1.btnDialClick(Sender: TObject);
  44. begin
  45.   RAS.EntryName := Listbox1.Items[Listbox1.ItemIndex];
  46.   RAS.Connect;
  47. end;
  48.  
  49. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  50. begin
  51.   Ras.Disconnect;
  52. end;
  53.  
  54. end.
  55.